#!/usr/bin/perl -w
#   Written by Jimmy Saw - 08-24-2008
#   This program takes a Genbank file and converts it into ptt file
#   You have to redirect output to a file
#   perl parse-gb2ptt.pl x.gbk > y.ptt

use Bio::SeqIO;

my $seqio_obj = Bio::SeqIO->new( -file => $ARGV[0], -format => 'genbank' );
my $seq_obj   = $seqio_obj->next_seq;

my $organism = $seq_obj->desc;
my $test = $seq_obj->;

print $organism, "\n", $test, "\n";

